home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
AMIGA
/
AMICUS
/
AMICUS19.ADF
/
Waveform
/
Load Demo
< prev
next >
Wrap
Text File
|
1989-01-27
|
512b
|
21 lines
' demonstration routine for loading waveforms
' use the name of your file in filename$
DIM wav%(256) 'integer array.
ON ERROR GOTO badfile 'if there's an error
CLOSE #1 'just in case.
OPEN filename$ FOR INPUT AS #1
FOR i=1 TO 256 'get 256 elements.
INPUT #1,x
wav%(i)=x
NEXT x
badfile:
'You can insert any error handlers here
CLOSE #1
IF ERR<>0 THEN PRINT "Error ";ERR;" in waveform read."